home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s1.arc / GETSCRIP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-07  |  6.8 KB  |  190 lines
  1. (*----------------------------------------------------------------------*)
  2. (*        Get_Script_Command --- Get command from script buffer         *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Get_Script_Command( VAR Command : PibTerm_Command_Type );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*       Procedure:   Get_Script_Command                                *)
  10. (*                                                                      *)
  11. (*       Purpose:     Get command from script buffer                    *)
  12. (*                                                                      *)
  13. (*       Calling Sequence:                                              *)
  14. (*                                                                      *)
  15. (*          Get_Script_Command( VAR Command : PibTerm_Command_Type );   *)
  16. (*                                                                      *)
  17. (*             Command --- command extracted from buffer                *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. VAR
  22.    L: INTEGER;
  23.  
  24. (*----------------------------------------------------------------------*)
  25. (*   Copy_Script_String --- Copy a string from the script buffer        *)
  26. (*----------------------------------------------------------------------*)
  27.  
  28. PROCEDURE Copy_Script_String( VAR S: AnyStr );
  29.  
  30. VAR
  31.    I: INTEGER;
  32.  
  33. BEGIN (* Copy_Script_String *)
  34.  
  35.    S                 := '';
  36.  
  37.    Script_Buffer_Pos := Script_Buffer_Pos + 1;
  38.  
  39.    L := Script_Buffer^[Script_Buffer_Pos];
  40.  
  41.    FOR I := 1 TO L DO
  42.       BEGIN
  43.          Script_Buffer_Pos := Script_Buffer_Pos + 1;
  44.          S := S + CHR( Script_Buffer^[Script_Buffer_Pos] );
  45.       END;
  46.  
  47. END   (* Copy_Script_String *);
  48.  
  49. (*----------------------------------------------------------------------*)
  50. (*   Copy_Script_Integer --- Copy an integer from the script buffer     *)
  51. (*----------------------------------------------------------------------*)
  52.  
  53. PROCEDURE Copy_Script_Integer( VAR IntVal: INTEGER );
  54.  
  55. VAR
  56.    Int_Bytes : ARRAY[1..2] OF BYTE ABSOLUTE IntVal;
  57.  
  58. BEGIN (* Copy_Script_Integer *)
  59.  
  60.    Int_Bytes[1] := Script_Buffer^[Script_Buffer_Pos + 1 ];
  61.    Int_Bytes[2] := Script_Buffer^[Script_Buffer_Pos + 2 ];
  62.  
  63.    Script_Buffer_Pos := Script_Buffer_Pos + 2;
  64.  
  65. END   (* Copy_Script_Integer *);
  66.  
  67. (*----------------------------------------------------------------------*)
  68.  
  69. BEGIN (* Get_Script_Command *)
  70.                                    (* Check for suspended script      *)
  71.                                    (* and exit if suspension still    *)
  72.                                    (* in progress.                    *)
  73.  
  74.    IF Script_Suspend_Time > 0.0 THEN
  75.       IF ( TimeDiffH( Script_Suspend_Start, TimeOfDayH ) >
  76.          Script_Suspend_Time ) THEN
  77.             BEGIN
  78.                Command := Null_Command;
  79.                EXIT;
  80.             END
  81.       ELSE
  82.          Script_Suspend_Time := 0.0;
  83.  
  84.                                    (* Set script strings to null      *)
  85.    Script_String       := '';
  86.    Script_String_2     := '';
  87.    Script_Integer_1    := 0;
  88.                                    (* Point to next command in buffer *)
  89.  
  90.    Script_Buffer_Pos := Script_Buffer_Pos + 1;
  91.  
  92.                                    (* Pick up command type            *)
  93.  
  94.    Command   := PibTerm_Command_Table_2[ Script_Buffer^[Script_Buffer_Pos] ];
  95.  
  96.                                    (* For commands with arguments,     *)
  97.                                    (* get the arguments.               *)
  98.    CASE Command OF
  99.  
  100.       DelaySy    : BEGIN
  101.                       Copy_Script_Integer( Script_Integer_1 );
  102.                       Delay_Time := Script_Integer_1 * 100;
  103.                    END;
  104.  
  105.       SuspendSy  : BEGIN
  106.                       Copy_Script_Integer( Script_Integer_1 );
  107.                       Script_Suspend_Time  := Script_Integer_1;
  108.                       Script_Suspend_Time  := Script_Suspend_Time / 10.0;
  109.                       Script_Suspend_Start := TimeOfDayH;
  110.                    END;
  111.  
  112.       DialSy,
  113.       DosSy,
  114.       InputSy,
  115.       KeySy,
  116.       MessageSy,
  117.       RedialSy,
  118.       STextSy,
  119.       TextSy,
  120.       TranslateSy,
  121.       WaitSy     : Copy_Script_String( Script_String );
  122.  
  123.       FileSy     : BEGIN
  124.                       Copy_Script_Integer( Script_Integer_1 );
  125.                       Copy_Script_String ( Script_String    );
  126.                       Copy_Script_String ( Script_String_2  );
  127.                    END;
  128.  
  129.       RInputSy   : BEGIN
  130.                       Copy_Script_String ( Script_String    );
  131.                       Copy_Script_Integer( Script_Integer_1 );
  132.                    END;
  133.  
  134.       IfConSy,
  135.       IfFoundSy  : BEGIN
  136.                       Copy_Script_Integer( Script_Integer_1 );
  137.                       Copy_Script_Integer( Script_Integer_2 );
  138.                       Copy_Script_Integer( Script_Integer_3 );
  139.                    END;
  140.  
  141.       IfRemStrSy,
  142.       IfLocStrSy : BEGIN
  143.                       Copy_Script_Integer( Script_Integer_1 );
  144.                       Copy_Script_Integer( Script_Integer_2 );
  145.                       Copy_Script_Integer( Script_Integer_3 );
  146.                       Copy_Script_String ( Script_String    );
  147.                    END;
  148.  
  149.       KeySendSy  : BEGIN
  150.                       Script_Buffer_Pos := Script_Buffer_Pos + 1;
  151.                       Key_No            := Script_Buffer^[Script_Buffer_Pos];
  152.                    END;
  153.  
  154.       KeyDefSy   : BEGIN
  155.                       Script_Buffer_Pos := Script_Buffer_Pos + 1;
  156.                       Key_No            := Script_Buffer^[Script_Buffer_Pos];
  157.                       Copy_Script_String( Script_String );
  158.                    END;
  159.  
  160.       GoToSy     : Copy_Script_Integer( Script_Integer_1 );
  161.  
  162.       WaitStrSy  : BEGIN
  163.                       Copy_Script_String ( Script_String    );
  164.                       Copy_Script_String ( Script_String_2  );
  165.                       Copy_Script_Integer( Script_Integer_1 );
  166.                       Copy_Script_Integer( Script_Integer_2 );
  167.                    END;
  168.  
  169.       CaptureSy,
  170.       WhenSy     : BEGIN
  171.                       Copy_Script_String( Script_String   );
  172.                       Copy_Script_String( Script_String_2 );
  173.                    END;
  174.  
  175.       ReceiveSy  : BEGIN
  176.                       Copy_Script_String ( Script_String    );
  177.                       Copy_Script_Integer( Script_Integer_1 );
  178.                    END;
  179.  
  180.       SendSy     : BEGIN
  181.                       Copy_Script_String ( Script_String   );
  182.                       Copy_Script_Integer( Script_Integer_1 );
  183.                    END;
  184.  
  185.       ELSE;
  186.  
  187.    END (* CASE *);
  188.  
  189. END   (* Get_Script_Command *);
  190.